(backup-buffer-copy): Fully revert change. Sigh.

diff --git a/lisp/files.el b/lisp/files.el
index be3c53951c47bd771d016fd6bb0525737e23dd2f..f2307b9d416f53450e13847ecde886a2747f3e18 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -3172,9 +3172,7 @@ BACKUPNAME is the backup file name, which is the old file renamed."
            (file-error nil))))))
 
 (defun backup-buffer-copy (from-name to-name modes)
-  (let ((umask (default-file-modes))
-       (dir (or (file-name-directory to-name)
-                default-directory)))
+  (let ((umask (default-file-modes)))
     (unwind-protect
        (progn
          ;; Create temp files with strict access rights.  It's easy to